function Neanatheme_OnCombat(Unit, Event)
Unit:SendChatMessage(14, 0, "Vous souhaitez nous combattre tous à la fois? Cela devrait être amusant!")
Unit:RegisterEvent("Neanatheme_Spell1", 30000, 0)
Unit:RegisterEvent("Neanatheme_Spell2", 5000, 0)
Unit:RegisterEvent("Neanatheme_Spell3", 20000, 0)
end

function Neanatheme_Spell1(Unit, Event)
Unit:CastSpell(46264)
end

function Neanatheme_Spell2(Unit, Event)
Unit:FullCastSpellOnTarget(33130, Unit:GetRandomPlayer())
end

function Neanatheme_Spell3(Unit, Event)
if Unit:GetHealthPtc() < 20 then
Unit:CastSpell(30502)
Unit:fullCastSpellOnTarget(30505, Unit:GetRandomPlayer())
end

function Neanatheme_OnLeaveCombat(Unit, Event)
Unit:RemoveEvents() 
end

function Neanatheme_OnKilledTarget(Unit, Event)
end

function Neanatheme_OnDied(Unit, Event)
Unit:RemoveEvents() 
end

RegisterUnitEvent(16807, 1, "Neanatheme_OnCombat")
RegisterUnitEvent(16807, 2, "Neanatheme_OnLeaveCombat")
RegisterUnitEvent(16807, 3, "Neanatheme_OnKilledTarget")
RegisterUnitEvent(16807, 4, "Neanatheme_OnDied")
